(widget-field-value-delete): Don't try to delete overlay when it's the

`psuedo-overlay' that exists at some points.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index db65fc1dfd495652e92850ff7db8212d51c0d6c6..374542804456119fc8ae599cbbbc1cae21f567c1 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -1747,7 +1747,7 @@ the earlier input."
   (setq widget-field-list (delq widget widget-field-list))
   ;; These are nil if the :format string doesn't contain `%v'.
   (let ((overlay (widget-get widget :field-overlay)))
-    (when overlay
+    (when (overlayp overlay)
       (delete-overlay overlay))))
 
 (defun widget-field-value-get (widget)